﻿Public Class frmOrden
    Private empresas As New cEmpresas
    Private cbo As New cDatos_Fijos
    Private analistas As New cAnalistas
    Private resultado As DataSet


    Private Sub txtNumero_Identificacion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub frmOrden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'llenar cbo empresas
        resultado = empresas.cbo_Empresas()
        cboRazonSocial.DataSource = resultado.Tables(0)
        cboRazonSocial.ValueMember = resultado.Tables(0).Columns(0).ToString
        cboRazonSocial.DisplayMember = resultado.Tables(0).Columns(1).ToString
        cboRazonSocial.SelectedIndex = -1

        'llenar cbo datos fijos tipo identificacion
        resultado = cbo.cbo_tipo_identificacion()
        cboTipo_Identificacion.DataSource = resultado.Tables(0)
        cboTipo_Identificacion.ValueMember = resultado.Tables(0).Columns(0).ToString
        cboTipo_Identificacion.DisplayMember = resultado.Tables(0).Columns(1).ToString
        cboTipo_Identificacion.SelectedIndex = -1

        'llenar cbo datos fijos tipo identificacion
        resultado = analistas.cbo_Analistas()
        cboAnalista.DataSource = resultado.Tables(0)
        cboAnalista.ValueMember = resultado.Tables(0).Columns(0).ToString
        cboAnalista.DisplayMember = resultado.Tables(0).Columns(1).ToString
        cboAnalista.SelectedIndex = -1
    End Sub
End Class